CAADynamicalTime_DeltaT <-
function(JD){.Call("CAADynamicalTime_DeltaT", JD)}
